home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGO.ARC / SORT.POG < prev    next >
Encoding:
Text File  |  1985-11-20  |  616 b   |  56 lines
  1.  
  2.  
  3. int sorted[10]
  4.  
  5. int sorting[10]
  6.  
  7. function randomize()
  8. {
  9. int i
  10.  
  11. for i = 0 to 10-1
  12.     {
  13.     sorting[i] = random(100)
  14.     }
  15. }
  16.  
  17. function print_sorting()
  18. {
  19. int i
  20.  
  21. for i = 0 to 10-1
  22.     Print( sorting[i])
  23. }
  24.  
  25. ;Just a bubble sort
  26. function sort()
  27. {
  28. int swapper
  29. int swapped
  30. int k
  31.  
  32. loop
  33.     {
  34.     swapped = 0
  35.     for k = 0 to 10-2
  36.         {
  37.         if (sorting[k] > sorting[k+1] )
  38.             {
  39.             swapper = sorting[k]
  40.             sorting[k] = sorting[k+1]
  41.             sorting[k+1] = swapper
  42.             swapped = 1
  43.             }
  44.         }
  45.     if (!swapped)
  46.         return
  47.     }
  48. }
  49.  
  50. randomize()
  51. print_sorting()
  52. PrintS( "sorting...")
  53. sort()
  54. print_sorting()
  55. WaitKey()
  56.